home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.filefind.menu < prev    next >
Encoding:
Text File  |  2000-03-14  |  4.4 KB  |  204 lines
  1. G4C
  2. ; $VER: func.findfile.menu Rev.012 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 100 180 "Selekt. Dateien"
  4. WinType 00001000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. WinOnMouse 5 5
  8.  
  9. xOnLoad
  10.     ; Nichts
  11.  
  12. XButton 0 0 100 15 "Abbrechen [X]"
  13.     GadFont xHelvetica.font 11 010
  14.     GuiQuit #This
  15.  
  16. XButton 0 15 100 15 "Aus Liste entf."
  17.     GadFont xHelvetica.font 11 000
  18.     GuiClose #This
  19.     LVUSE func.filefind 1
  20.     LVMulti First
  21.     while $$lv.line > ""
  22.         LVDel -1
  23.         LVMulti Show
  24.         LVMulti First
  25.     EndWhile
  26.     Update "Infobar" 1 "Alle selektierten Einträge aus der Liste entfernt."
  27.     GuiQuit #This
  28.  
  29. XButton 0 30 100 15 "Kopiere nach"
  30.     GadFont xHelvetica.font 11 000
  31.     GuiClose #This
  32.     ReqFile -1 -1 250 400 "Bitte Ziel auswählen ..." DIR destdir "RAM:"
  33.     LVUSE func.filefind 1
  34.     LVMulti First
  35.     Update "Infobar" 1 "Kopiere alle selektierten Einträge ..."
  36.     while $$lv.line > ""
  37.         Update "Infobar" 1 "Kopiere $$LV.REC ..."
  38.         FailAt 21
  39.         CLI 'copy $$LV.REC to $destdir'
  40.         LVMulti OFF
  41.         LVMulti Show
  42.         LVMulti First
  43.     EndWhile
  44.     Update "Infobar" 1 "Kopiervorgang erfolgreich beendet."
  45.     GuiQuit #This
  46.  
  47. XButton 0 45 100 15 "Verschieben"
  48.     GadFont xHelvetica.font 11 000
  49.     GuiClose #This
  50.     ReqFile -1 -1 250 400 "Bitte Ziel auswählen ..." DIR destdir "RAM:"
  51.     LVUSE func.filefind 1
  52.     LVMulti First
  53.     Update "Infobar" 1 "Verschiebe alle selektierten Einträge ..."
  54.     while $$lv.line > ""
  55.         Update "Infobar" 1 "Kopiere $$LV.REC nach $destdir ..."
  56.         FailAt 21
  57.         CLI 'copy $$LV.REC to $destdir'
  58.         Update "Infobar" 1 "Lösche $$LV.REC ..."
  59.         FailAt 21
  60.         CLI 'delete $$LV.REC FORCE'
  61.         LVMulti OFF
  62.         LVMulti Show
  63.         LVMulti First
  64.     EndWhile
  65.     Update "Infobar" 1 "Verschiebevorgang erfolgreich beendet."
  66.     GuiQuit #This
  67.  
  68. XButton 0 60 100 15 "Löschen"
  69.     GadFont xHelvetica.font 11 000
  70.     GuiClose #This
  71.     LVUSE func.filefind 1
  72.     LVMulti First
  73.     Update "Infobar" 1 "Lösche alle selektierten Einträge ..."
  74.     while $$lv.line > ""
  75.         Update "Infobar" 1 "Lösche $$LV.REC ..."
  76.         FailAt 21
  77.         CLI 'delete $$LV.REC FORCE'
  78.             LVDel -1
  79.         LVMulti Show
  80.         LVMulti First
  81.     EndWhile
  82.     Update "Infobar" 1 "Lösch Prozess erfolgreich beendet."
  83.     GuiQuit #This
  84.  
  85. XButton 0 75 100 15 "Grafik anzeigen"
  86.     GadFont xHelvetica.font 11 000
  87.     GuiClose #This
  88.     LVUSE #This 1
  89.     LVMulti First
  90.     while $$lv.line > ""
  91.         CLI 'rx $*VIEWER $*SCREEN $$LV.REC'
  92.         LVMulti OFF
  93.         LVMulti Show
  94.         LVMulti First
  95.     EndWhile
  96.     GuiQuit #This
  97.  
  98. XButton 0 90 100 15 "Browser"
  99.     GadFont xHelvetica.font 11 000
  100.     GuiClose #This
  101.     LVUSE func.filefind 1
  102.     LVMulti First
  103.     while $$lv.line > ""
  104.         FailAt 21
  105.         CLI 'LIST $$LV.REC LFORMAT="%P" >ENV:.htmlext.tmp'
  106.         FailAt 21
  107.         CLI 'LIST $$LV.REC LFORMAT="%S" >ENV:.HTMLEXT.file'
  108.         CLI 'rx $*BROWSER OPENNEW $.HTMLEXT.file'
  109.         LVMulti OFF
  110.         LVMulti Show
  111.         LVMulti First
  112.     EndWhile
  113.     FailAt 21
  114.     CLI 'delete env:.HTMLEXT.file FORCE'
  115.     GuiQuit #This
  116.  
  117. XButton 0 105 100 15 "ArtEffect"
  118.     GadFont xHelvetica.font 11 000
  119.     GuiClose #This
  120.     LVUSE func.filefind 1
  121.     LVMulti First
  122.     while $$lv.line > ""
  123.         ifexists file "htmlext:mod/ArtEffect.mod"
  124.             CLI 'rx htmlext:mod/Arteffect.mod OPENNEW $$lV.REC'
  125.         else
  126.             STOP
  127.         endif
  128.         LVMulti OFF
  129.         LVMulti Show
  130.         LVMulti First
  131.     EndWhile
  132.     GuiQuit #This
  133.  
  134. XButton 0 120 100 15 "ImageEngineer"
  135.     GadFont xHelvetica.font 11 000
  136.     GuiClose #This
  137.     LVUSE #This 1
  138.     LVMulti First
  139.     while $$lv.line > ""
  140.         ifexists file "htmlext:mod/imageengineer.mod"
  141.             CLI 'rx htmlext:mod/imageengineer.mod OPENNEW $lv.rec'
  142.         else
  143.             STOP
  144.         endif
  145.         LVMulti OFF
  146.         LVMulti Show
  147.         LVMulti First
  148.     EndWhile
  149.     GuiQuit #This
  150.  
  151. XButton 0 135 100 15 "ImageFX"
  152.     GadFont xHelvetica.font 11 000
  153.     GuiClose #This
  154.     LVUSE #This 1
  155.     LVMulti First
  156.     while $$lv.line > ""
  157.         ifexists file "htmlext:mod/ImageFX.mod"
  158.             CLI 'rx htmlext:mod/imagefx.mod OPENNEW $$lv.rec'
  159.         else
  160.             STOP
  161.         endif
  162.         LVMulti OFF
  163.         LVMulti Show
  164.         LVMulti First
  165.     EndWhile
  166.     GuiQuit #This
  167.  
  168. XButton 0 150 100 15 "Photogenics2"
  169.     GadFont xHelvetica.font 11 000
  170.     GuiClose #This
  171.     LVUSE #This 1
  172.     LVMulti First
  173.     while $$lv.line > ""
  174.         Update "infobar" 1 "Lade Grafik $$lv.rec in Photogenics2 .."
  175.         ifexists file "htmlext:mod/AddOn/Photogenics2.mod"
  176.             CLI 'rx htmlext:mod/AddOn/Photogenics2.mod OPENNEW $$lv.rec'
  177.         else
  178.             STOP
  179.         endif
  180.         LVMulti OFF
  181.         LVMulti Show
  182.         LVMulti First
  183.     EndWhile
  184.     GuiQuit #This
  185.  
  186. XButton 0 165 100 15 "PPaint"
  187.     GadFont xHelvetica.font 11 000
  188.     GuiClose #This
  189.     LVUSE #This 1
  190.     LVMulti First
  191.     while $$lv.line > ""
  192.         Update "infobar" 1 "Lade Grafik $$lv.rec in Photogenics2 .."
  193.         ifexists file "htmlext:mod/AddOn/PPaint.mod"
  194.             CLI 'rx htmlext:mod/AddOn/PPaint.mod OPENNEW $$lv.rec'
  195.         else
  196.             STOP
  197.         endif
  198.         LVMulti OFF
  199.         LVMulti Show
  200.         LVMulti First
  201.     EndWhile
  202.     GuiQuit #This
  203.  
  204.